### specification test
library(ggplot2)
library(stargazer)
source("setup.R")

## results at unrestricted estimates in paper
load("./output/results_df_baseline_MAX")

source("calc_type_correlations.R")
cor_results_table_MAX<-cor_results_table
avg_clustered_results_MAX<-avg_clustered_results

## results at restricted estimates (no studyhs or estudy)
load("./output/results_df_baseline_NO_STUDY_INFO")

source("calc_type_correlations.R")
cor_results_table_NO_STUDY_INFO<-cor_results_table
avg_clustered_results_NO_STUDY_INFO<-avg_clustered_results

stargazer(avg_clustered_results_MAX, avg_clustered_results_NO_STUDY_INFO, out="./output/clustered_avg_correlations.tex", column.labels=c("with study prop data", "no study prop data"), add.lines=list(c("Clustered SE", "student", "student")))

stargazer(avg_clustered_results_MAX, avg_clustered_results_NO_STUDY_INFO, type="text", labels=c("with study prop data", "no study prop data"), add.lines=list(c("Clustered SE", "student", "student")))